Public Class Telefonos
    Dim ADTel As New ADCono.Telefonos

    Public Function ObtenerTipDeTel(Optional ByVal NomTDT As String = "")
        Dim DS As New DataSet
        DS = ADTel.ObtenerTipDeTel(NomTDT)
        Return DS
    End Function

    Public Function EliminarTipDeTel(ByVal NomTDT As String)
        Dim DS As New DataSet
        DS = ADTel.EliminarTipDeTel(NomTDT)
        Return DS
    End Function

    Public Function GenerarTipDeTel(ByVal NomTDT As String)
        Dim DS As New DataSet
        DS = ADTel.GenerarTipDeTel(NomTDT)
        Return DS
    End Function

    Public Function GenerarTel(ByVal CodRS As Integer, ByVal CodTipTel As Integer, _
    ByVal Num As Integer, Optional ByVal Obs As String = "", Optional ByVal CodDP As Integer = 0)
        Dim DS As New DataSet
        DS = ADTel.GenerarTelefono(CodRS, CodTipTel, Num, Obs, CodDP)
        Return DS
    End Function

End Class
